This file shows how some Super MacroWorks tokens can be simulated in an UltraMacros macro.
<if>
if used to test the character at the cursor. Now it does a whole lot of other things. To simulate the old <if>, use K = peek $10f5. K will equal the cursor character as listed under the high values on the Key Chart:
a:<all K = peek $10f5: if K = 160 then print "Cursor is on a space">!
<end?>
end? was used to see if the Desktop was empty. Now you can use
C:<all N = peek $C55>! and variable N will equal the number of files currently on the Desktop. This is nice because you can use it any time, and don't have to do an OPEN-APPLE-Q first like with <end?>.
<Lprint>
Lprint printed the current cursor line. The following sequence will do the exact same thing:
L:<all poke 799,21 : call 795 : L = peek 794 + 1 : { get cursor line }
pr# 1 : { to determine the pr# number, do an OPEN-APPLE-P and use the desired printer number as shown by AppleWorks } :
print screen 1,L,80 : pr# 0>! print it and reset
You can also use commands like <cell> and <getstr> to make a much more flexible line printer macro. Here's a mini "typewriter" macro:
T:<all msg ' Enter line and press Return ' : $0 = getstr 60 { get line }
pr# 1 : print $0 : print chr$ 13 : msg "" : pr# 0>! print it and reset
<menu> and <resume>
These commands were used to let a macro "remember" the current file, go to the Main Menu, and then return to the file. The following macro pair (already in Macros Ultra) do something similar:
1:<all><q = peek $C54 : { get file number } : oa-q esc>! leave "1" file
2:<all oa-q print q : rtn>! return "2" the file we left, if Q wasn't changed
The rest of the missing Super MacroWorks commands shouldn't cause any problems. Obviously commands like <incvar> are now <A = A + 1> and so on.
